home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / samples / olecon~1 / controls / autosa~1 / module1.bas < prev    next >
BASIC Source File  |  1995-11-25  |  350b  |  24 lines
  1. Attribute VB_Name = "Module1"
  2.  
  3. Sub main()
  4.  
  5.  
  6.     Dim r As New Rectangle
  7.     
  8.     With r
  9.     
  10.         .Left = 1
  11.         .Top = 2
  12.         .Right = 3
  13.         .Bottom = 4
  14.     End With
  15.     
  16.     With r
  17.         Debug.Print .Left
  18.         Debug.Print .Top
  19.         Debug.Print .Right
  20.         Debug.Print .Bottom
  21.     End With
  22.     
  23. End Sub
  24.